home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / drunk.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  2.4 KB  |  76 lines
  1. 5  'written by D. Goldstein 3/17/84  idea by C. Butler
  2. 10  CLS
  3. 20  PRINT "VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
  4. 30  PRINT "CALL                       CALL"
  5. 40  PRINT "CALL                       CALL"
  6. 50  PRINT "CALL   B A R               CALL
  7. 60  PRINT "CALL            VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  8. 70  PRINT "CALL            THEN"
  9. 80  PRINT "CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  10. 90  LOCATE 6 ,15:PRINT "<UNK! {FE22}>:LOCATE 7,15:PRINT "<UNK! {FE22}>
  11. 100  LOCATE 22,1:PRINT "PARKING "CHR$(16)" \                             /"
  12. 110  LOCATE 23,1:PRINT "          |                             |
  13. 120  LOCATE 6,20:PRINT "PRESS ANY KEY TO SEE WHAT DRUNK DRIVING WILL CAUSE":
  14. 130  IF INKEY$="" THEN 130
  15. 140  FOR C=7 TO 23:
  16. 150  R=INT(RND*(21-18+1)+15)
  17. 160  LOCATE C,R:PRINT "<UNK! {FE22}>
  18. 170  SOUND R+500,0.5
  19. 180  FOR YY=1 TO 400 :NEXT YY
  20. 190  NEXT C
  21. 200  CLS
  22. 210  V$=STRING$(79,254)
  23. 220  LOCATE 13:PRINT V$
  24. 230  LOCATE 11:PRINT "     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     ":LOCATE 12,1:PRINT " ":LOCATE 12,39:PRINT " "
  25. 240  LOCATE 9,1:PRINT " ":LOCATE 9,39:PRINT " "
  26. 250  LOCATE 9:PRINT V$
  27. 260  LOCATE 10,1:PRINT " ":LOCATE 10,39:PRINT " "
  28. 270  FOR X=35 TO 5 STEP -2
  29. 280  MOTOR
  30. 290  LOCATE 12,X:PRINT"oCLS=o"
  31. 300  V= SCREEN(12,X-1):IF V=219 THEN GOTO 420
  32. 310  FOR ZZ=1 TO 30:NEXT ZZ:LOCATE 12,X:PRINT"    "
  33. 320  FOR T=1 TO X :NEXT T
  34. 330  NEXT X
  35. 340  FOR X=5 TO 35 STEP 2
  36. 350  IF X=35 THEN LOCATE 12,7:PRINT "CSRLINCSRLINCSRLIN"
  37. 360  LOCATE 10,X:PRINT "o='o"
  38. 370  FOR ZZ=1 TO 20:NEXT ZZ:LOCATE 10,X:PRINT "    "
  39. 380  MOTOR
  40. 390  FOR T= 1 TO X:NEXT T
  41. 400  NEXT X
  42. 410  GOTO 270
  43. 420  FOR RR=1 TO 7:COLOR 0,7:CLS:FOR Y=1 TO 50 :NEXT Y:COLOR 7,0:CLS:FOR Y=1 TO 50:NEXT Y:NEXT RR:COLOR 15
  44. 430  CLS:PRINT "  /            <0xE4!>         o"
  45. 440  PRINT"                                   (     -       ** |    ":PRINT:
  46. 450  PRINT:PRINT "         =      =    |        o  ":PRINT
  47. 460  PRINT "                                    =                         o"
  48. 470  BEEP
  49. 480  LOCATE 17,1:PRINT "             ==  -        (             ~"
  50. 490  LOCATE 19,1:PRINT " ~~-"
  51. 500  PRINT "                     ||               SOUND    CLS"
  52. 510  LOCATE 19,5:PRINT"                 B..O..O..M !
  53. 520  FOR T=1 TO 1000 :NEXT T:CLS
  54. 530  COLOR 15
  55. 540  LOCATE 8,5:PRINT "WHEN YOU'RE "
  56. 550  FOR G=1 TO 30 :LOCATE 12,G:PRINT "DRUNK":NEXT G
  57. 560  FOR G=1 TO 29:LOCATE 12,G:PRINT" ":NEXT G
  58. 570  LOCATE 19,1:PRINT "                                   DONT DRIVE!"
  59. 580  FOR T=500 TO 2000 STEP 20
  60. 590  SOUND T,1
  61. 600  NEXT T
  62. 610  FOR T=2000 TO 500 STEP -20
  63. 620  SOUND T,1
  64. 630  NEXT T
  65. 640  LOCATE 11,1:COLOR 28:PRINT "              CSRLIN"
  66. 650  LOCATE 12,1:COLOR 15:PRINT "        VARPTR-----+-----COLOR  "
  67. 660  LOCATE 13,1:COLOR 15:PRINT "       /     THENLOCATETHEN     \
  68. 670  LOCATE 14,1:        :PRINT "      / /--\     /--\ \
  69. 680  LOCATE 15,1:        :PRINT "VARPTR-------------+-------------COLOR"
  70. 690  LOCATE 16,1:        :PRINT "|      \______<______ /     |
  71. 700  LOCATE 17,1:        :PRINT "| _-_   \ P O L I C E/  _-_ |
  72. 710  LOCATE 18,1:        :PRINT "|( ";:COLOR 30:PRINT "* ";:COLOR 15:PRINT ")   KEY<0xCB!><0xCB!><0xCB!><0xCB!><0xCB!><0xCB!><0xCB!><0xCB!><0xCB!>CLOSE   ( ";:COLOR 30:PRINT "* ";:COLOR 15:PRINT ")|"
  73. 720  LOCATE 19,1:        :PRINT " \_______TOLOCATELOCATELOCATELOCATELOCATELOCATELOCATELOCATELOCATERANDOMIZE_______/
  74. 730  LOCATE 20,1:        :PRINT "    WHILEWHILE     CALLMD 21CALL     WHILEWHILE
  75. 740  LOCATE 21,1:        :PRINT "    WHILEWHILE     CLSSOUNDSOUNDSOUNDSOUNDSOUND'     WHILEWHILE
  76.